; every 传入的每个都满足

(setf a '(1 2 3)
			b '(0 2 4)
			c '(1 3 5)
			d '(1 0 0))

(format t "~A every > ~A: ~A~%" c b (every #'> c b))
(format t "~A some > ~A: ~A~%" c b (some #'> c b))
(format t "~A every > ~A: ~A~%" d b (every #'> d b))
(format t "~A some > ~A: ~A~%" d b (some #'> d b))

(format t "~A odd: ~A~%" c (every #'oddp c))
(format t "~A odd: ~A~%" c (some #'oddp c))
(format t "~A odd: ~A~%" d (every #'oddp d))
(format t "~A odd: ~A~%" d (some #'oddp d))
